﻿Public Class Form1
    Friend Const _Connection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & """C:\Aaron\Aarons DB SERVER.mdb"""





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim IsList As New List(Of Human)
        'IsList.Add(New Human("Aaron", 21))

        'ListView_OLV_DB1.Clear()


        'ListView_OLV_DB1.Objects = Nothing

        'ListView_OLV_DB1.Objects = Aaron.Main.Database.dondur_datatable(_Connection, "Selec    t * From CallCust")

        ListView_OLV_DB1.SetupData(Aaron.Main.Database.dondur_datatable(_Connection, "Select * From CallCust"))
        
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'Dim IsList As New List(Of Place)
        'IsList.Add(New Place("Portland", 10))


        'ListView_OLV_DB1.Clear()


        'ListView_OLV_DB1.Objects = Nothing


        'ListView_OLV_DB1.Objects = Aaron.Main.Database.dondur_datatable(_Connection, "Select * From AJP_Cust")
        'ListView_OLV_DB1.DataSource = Aaron.Main.Database.dondur_datatable(_Connection, "Select * From AJP_Cust")


        ListView_OLV_DB1.SetupData(Aaron.Main.Database.dondur_datatable(_Connection, "Select * From AJP_Cust"))

    End Sub
End Class


Public Class Human
    Public Property Name As String
    Public Property Age As Integer
    Sub New(ByVal Name As String, ByVal Age As Integer)
        Me.Name = Name
        Me.Age = Age
    End Sub


End Class


Public Class Place
    Public Property Location As String
    Public Property Population As Integer
    Sub New(ByVal Location As String, ByVal Population As String)
        Me.Location = Location
        Me.Population = Population
    End Sub





End Class